home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Prg / DEPAL.ZIP / SOURCE.ZIP / MDI.FRM < prev    next >
Text File  |  1995-03-12  |  991b  |  51 lines
  1. VERSION 2.00
  2. Begin MDIForm MDIForm1 
  3.    Caption         =   "Palette Editor"
  4.    ClientHeight    =   5820
  5.    ClientLeft      =   1815
  6.    ClientTop       =   825
  7.    ClientWidth     =   7365
  8.    Height          =   6510
  9.    Left            =   1755
  10.    LinkTopic       =   "MDIForm1"
  11.    Top             =   195
  12.    Width           =   7485
  13.    Begin Menu M_new 
  14.       Caption         =   "New"
  15.    End
  16. End
  17. Option Explicit
  18.  
  19. Sub M_new_Click ()
  20.  
  21.     loadform.Show 1
  22.     If Not Success Then Exit Sub
  23.  
  24.     On Error GoTo new_error
  25.     Dim X As pedchild
  26.     Set X = New pedchild
  27.     X!xDib.Filename = Filepath
  28.     Call ReadDib(X!xDib)
  29.     X!xDib.Tag = Filepath
  30.     X.Caption = Filename
  31.     DibPal!Pal.Palette = X!xDib.Palette
  32.     DibPal!labPos.Caption = "---"
  33.     X.Show
  34.     Exit Sub
  35.  
  36. new_error:
  37.     MsgBox Error$
  38.     Unload X
  39.     Exit Sub
  40.  
  41. End Sub
  42.  
  43. Sub MDIForm_Load ()
  44.     Drivename = "C:\"
  45. End Sub
  46.  
  47. Sub MDIForm_Unload (Cancel As Integer)
  48.     End
  49. End Sub
  50.  
  51.